
sub main()   	dim MyDate as date		MyDate = new date		//MyDate.totalSeconds = MyDate.totalSeconds + 86400	msgbox("The date is " & MyDate.ShortDate)	msgbox("The time is " & MyDate.LongTime)end sub